Sub LinkToODBCStores()
DoCmd.TransferDatabase _
     acLink, _
     "ODBC Database", _
     "ODBC;DSN=Publications; UID=Allen; PWD=; DATABASE=pubs", _
     acTable, "dbo.stores", "dbo_stores"
End Sub
